object Form1: TForm1
  Left = 193
  Top = 130
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  Caption = 'Block Editor'
  ClientHeight = 908
  ClientWidth = 1692
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  OnMouseWheel = FormMouseWheel
  OnShow = FormShow
  PixelsPerInch = 168
  DesignSize = (
    1692
    908)
  TextHeight = 24
  object Label8: TLabel
    Left = 1195
    Top = 1108
    Width = 14
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = 'X'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object XLabel: TLabel
    Left = 1255
    Top = 1108
    Width = 10
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 1195
    Top = 1141
    Width = 12
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = 'Y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object YLabel: TLabel
    Left = 1255
    Top = 1141
    Width = 10
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 1195
    Top = 1169
    Width = 12
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = 'Z'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ZLabel: TLabel
    Left = 1255
    Top = 1174
    Width = 10
    Height = 24
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akTop, akRight]
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 28
    Top = 19
    Width = 16
    Height = 32
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    TabOrder = 1
    Text = 'Edit1'
    OnKeyPress = Edit1KeyPress
  end
  object Panel1: TPanel
    Left = 14
    Top = 14
    Width = 1398
    Height = 880
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    OnMouseDown = FormMouseDown
    object glsViewer: TGLSceneViewer
      Left = 1
      Top = 1
      Width = 1396
      Height = 878
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Camera = Camera
      Buffer.BackgroundColor = clBlack
      FieldOfView = 167.004562377929700000
      PenAsTouch = False
      Align = alClient
      OnClick = glsViewerClick
      OnMouseDown = glsViewerMouseDown
      OnMouseUp = glsViewerMouseUp
      TabOrder = 0
    end
  end
  object pnRight: TPanel
    Left = 1316
    Top = 0
    Width = 376
    Height = 908
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alRight
    Caption = ' '
    TabOrder = 2
    DesignSize = (
      376
      908)
    object LabelParts: TLabel
      Left = 26
      Top = 543
      Width = 41
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Parts'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton10: TSpeedButton
      Tag = 3
      Left = 305
      Top = 446
      Width = 29
      Height = 18
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -28
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Layout = blGlyphBottom
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton9: TSpeedButton
      Tag = 3
      Left = 305
      Top = 418
      Width = 29
      Height = 18
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '+'
      Layout = blGlyphBottom
      OnClick = SpeedButton1Click
    end
    object SpeedButton6: TSpeedButton
      Tag = 2
      Left = 305
      Top = 331
      Width = 29
      Height = 17
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -28
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Layout = blGlyphBottom
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton5: TSpeedButton
      Tag = 2
      Left = 305
      Top = 303
      Width = 29
      Height = 17
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '+'
      Layout = blGlyphBottom
      OnClick = SpeedButton1Click
    end
    object SpeedButton4: TSpeedButton
      Tag = 1
      Left = 305
      Top = 219
      Width = 29
      Height = 17
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -28
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Layout = blGlyphBottom
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Tag = 1
      Left = 305
      Top = 191
      Width = 29
      Height = 17
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '+'
      Layout = blGlyphBottom
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 299
      Top = 89
      Width = 30
      Height = 18
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -28
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Layout = blGlyphBottom
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton1: TSpeedButton
      Left = 299
      Top = 61
      Width = 30
      Height = 18
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = '+'
      Layout = blGlyphBottom
      OnClick = SpeedButton1Click
    end
    object LabelDepth: TLabel
      Left = 74
      Top = 380
      Width = 50
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Depth'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelBHeight: TLabel
      Left = 21
      Top = 263
      Width = 101
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Back Height'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelWidth: TLabel
      Left = 61
      Top = 35
      Width = 48
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Width'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelFHeight: TLabel
      Left = 23
      Top = 147
      Width = 104
      Height = 24
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Front Height'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Memo1: TMemo
      Left = 65
      Top = 723
      Width = 255
      Height = 170
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Movement=Arrows.PgUp,PgDown'
        ''
        'Look=Left button n mouse'
        ''
        'Add=Ins '
        ''
        'Remove=Del')
      ParentFont = False
      TabOrder = 0
      WordWrap = False
    end
    object cbBottom: TCheckBox
      Left = 105
      Top = 569
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Bottom'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 1
      OnClick = PartsCBClick
    end
    object btAddCubes: TButton
      Left = 210
      Top = 609
      Width = 128
      Height = 44
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Add cubes'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btAddCubesClick
    end
    object cbBack: TCheckBox
      Left = 105
      Top = 513
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Back'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 3
      OnClick = PartsCBClick
    end
    object cbFront: TCheckBox
      Left = 105
      Top = 485
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Front'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 4
      OnClick = PartsCBClick
    end
    object cbRight: TCheckBox
      Left = 105
      Top = 625
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Right'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 5
      OnClick = PartsCBClick
    end
    object cbLeft: TCheckBox
      Left = 105
      Top = 597
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Left'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 6
      OnClick = PartsCBClick
    end
    object cbTop: TCheckBox
      Left = 105
      Top = 541
      Width = 114
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Caption = 'Top'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 7
      OnClick = PartsCBClick
    end
    object DepthEdit: TEdit
      Left = 165
      Top = 438
      Width = 85
      Height = 32
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      Text = '1.00'
    end
    object BackHeightEdit: TEdit
      Left = 165
      Top = 317
      Width = 85
      Height = 32
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      Text = '1.00'
    end
    object FrontHeightedit: TEdit
      Left = 151
      Top = 200
      Width = 85
      Height = 32
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      Text = '1.00'
    end
    object WidthEdit: TEdit
      Left = 161
      Top = 68
      Width = 86
      Height = 32
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Anchors = [akTop, akRight]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      Text = '1.00'
    end
    object btnSave: TButton
      Left = 208
      Top = 669
      Width = 132
      Height = 43
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Save'
      TabOrder = 12
      OnClick = btnSaveClick
    end
    object btnOpen: TButton
      Left = 28
      Top = 669
      Width = 131
      Height = 43
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Open'
      TabOrder = 13
      OnClick = btnOpenClick
    end
    object seWidth: TSpinEdit
      Left = 154
      Top = 19
      Width = 114
      Height = 35
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 10
      MinValue = 1
      TabOrder = 14
      Value = 1
    end
    object SpinEdit1: TSpinEdit
      Left = 154
      Top = 131
      Width = 114
      Height = 35
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 10
      MinValue = 1
      TabOrder = 15
      Value = 1
    end
    object SpinEdit2: TSpinEdit
      Left = 154
      Top = 247
      Width = 114
      Height = 35
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 10
      MinValue = 1
      TabOrder = 16
      Value = 1
    end
    object SpinEdit3: TSpinEdit
      Left = 154
      Top = 364
      Width = 114
      Height = 35
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 10
      MinValue = 1
      TabOrder = 17
      Value = 1
    end
  end
  object GLScene1: TGLScene
    Left = 72
    Top = 24
    object grdField: TGLXYZGrid
      Position.Coordinates = {00000000B81E05BF000000000000803F}
      LineColor.Color = {CFBC3C3EA19E9E3EA19E9E3E0000803F}
      LineWidth = 0.100000001490116100
      XSamplingScale.Min = -100.000000000000000000
      XSamplingScale.Max = 99.000000000000000000
      XSamplingScale.Step = 3.000000000000000000
      YSamplingScale.Min = -10.000000000000000000
      YSamplingScale.Max = 10.000000000000000000
      YSamplingScale.Step = 1.000000000000000000
      ZSamplingScale.Min = -100.000000000000000000
      ZSamplingScale.Max = 99.000000000000000000
      ZSamplingScale.Step = 3.000000000000000000
      Parts = [gpX, gpZ]
    end
    object GLDummyCube2: TGLDummyCube
      CubeSize = 1.000000000000000000
      object Camera: TGLCamera
        DepthOfView = 1000.000000000000000000
        FocalLength = 50.000000000000000000
        TargetObject = dcBlock
        Position.Coordinates = {00000000000080400000C0C00000803F}
      end
    end
    object GLFreeForm1: TGLFreeForm
      Material.FrontProperties.Diffuse.Color = {0000803FF8FEFE3E000000000000803F}
      Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
      Material.FrontProperties.Specular.Color = {938C0C3E938E0E3FDCD6D63E0000803F}
      Material.Texture.Disabled = False
      Scale.Coordinates = {CDCCCC3DCDCCCC3DCDCCCC3D00000000}
      ShowAxes = True
      MaterialLibrary = GLMaterialLibrary1
    end
    object dcBlock: TGLDummyCube
      ShowAxes = True
      CubeSize = 1.000000000000000000
      object Block: TGLCube
        Material.FrontProperties.Ambient.Color = {00000000000000000000803F0000803F}
        Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
        Material.FrontProperties.Emission.Color = {00000000F8FEFE3E0000803F0000803F}
        Material.FrontProperties.Specular.Color = {00000000000000000000803F0000803F}
        Material.BlendingMode = bmAdditive
        CubeSize = {6666863F6666863F6666863F}
      end
      object grdExtruder: TGLXYZGrid
        Position.Coordinates = {0000003F0000003F0000003F0000803F}
        AntiAliased = True
        LineColor.Color = {0000803F000000000000803F0000803F}
        XSamplingScale.Min = -2.019999980926514000
        XSamplingScale.Max = 1.009999990463257000
        XSamplingScale.Step = 1.009999990463257000
        YSamplingScale.Min = -1.019999980926514000
        YSamplingScale.Step = 1.009999990463257000
        ZSamplingScale.Min = -1.019999980926514000
        ZSamplingScale.Step = 1.009999990463257000
        Parts = [gpX, gpY, gpZ]
      end
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    SleepLength = 1
    OnProgress = GLCadencer1Progress
    Left = 72
    Top = 80
  end
  object GLUserInterface1: TGLUserInterface
    MouseSpeed = 20.000000000000000000
    GLNavigator = GLNavigator2
    GLVertNavigator = GLNavigator1
    Left = 424
    Top = 24
  end
  object GLNavigator1: TGLNavigator
    VirtualUp.Coordinates = {000000000000803F000000000000803F}
    MovingObject = GLDummyCube2
    UseVirtualUp = True
    AutoUpdateObject = True
    MaxAngle = 35.000000000000000000
    MinAngle = -80.000000000000000000
    AngleLock = True
    Left = 424
    Top = 80
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Materials = <
      item
        Name = 'LibMaterial'
        Tag = 0
      end
      item
        Name = 'LibMaterial1'
        Tag = 0
      end
      item
        Name = 'LibMaterial2'
        Tag = 0
      end
      item
        Name = 'LibMaterial3'
        Tag = 0
      end
      item
        Name = 'LibMaterial4'
        Tag = 0
      end
      item
        Name = 'LibMaterial5'
        Tag = 0
      end>
    Left = 72
    Top = 133
  end
  object GLNavigator2: TGLNavigator
    VirtualUp.Coordinates = {000000000000803F000000000000803F}
    MovingObject = GLDummyCube2
    UseVirtualUp = True
    AutoUpdateObject = True
    Left = 424
    Top = 136
  end
end
